home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 32
/
Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso
/
Aminet
/
comm
/
irc
/
MyMatch.lha
/
MyMatch
/
Install_MyMatch
< prev
next >
Wrap
Text File
|
1999-04-11
|
2KB
|
108 lines
; Installer Script for MyMatch
; $VER: Install_MyMatch V_1.0 (11.04.99)
(set #install-docs
(cat " Install documentation?\n"
"This consists of 2 files and their icons.\n"
))
(set #goodbye
(cat "\nInstallation of MyMatch is Complete.\n\n"
))
(set #my-address
(cat "Donald T Becker\n"
"335 S Chestnut St\n"
"Mt Carmel Pa 17851-2219\n\n"
"email: strdustr@ptd.net\n"
"IRC: StarDustr!StarDustr@*.ptd.net\n"
))
(set mmver (getversion "AmIRC/Rexx/MyMatch.amirx"))
(set mrver (getversion "Rexx/MatchResolve.rexx"))
;********************************************************************
(complete 10)
(set target1 (askdir
(prompt "Select Directory where your AmIRC program is")
(help "This directory should also have a Rexx directory in it")
(default "RAM:")
))
(set target2 (tackon target1 "Rexx"))
(set mmfile (tackon target1 "Rexx/MyMatch.amirx"))
(set mrfile ("Rexx:MatchResolve.rexx"))
(set oldver (- 1 1))
(if (Exists mmfile) (
(set oldver (getversion mmfile))
))
(complete 25)
(if (> mmver oldver)(
(complete 50)
(copyfiles (
(source "AmIRC/Rexx")
(dest target2)
(choices "MyMatch.amirx")
))
))
(set oldver (- 1 1))
(if (Exists mrfile) (
(set oldver (getversion mrfile))
))
(complete 40)
(if (> mrver oldver)(
(complete 50)
(copyfiles (
(source "Rexx")
(dest "Rexx:")
(choices "MatchResolve.rexx")
))
))
(complete 55)
(copyfiles (
(prompt "Select Data Files you wish Installed")
(help "These files contain Non-Standard Domains/IPs for use by MyMatch")
(source "AmIRC")
(dest target1)
(choices "America.USA.MyMatch" "Australia.AU.MyMatch"
"Canada.CA.MyMatch" "France.FR.MyMatch"
"Netherlands.NL.MyMatch" "Sweden.SE.MyMatch"
"Thailand.TH.MyMatch" "UnitedKingdom.UK.MyMatch"
"Yugoslavia.YU.MyMatch")
(CONFIRM)
)
)
(complete 70)
(set docs (askbool (prompt #install-docs)
(help #install-docs-help)
(choices "YES" "NO")
)
)
(complete 85)
(if (= docs 1) (
(set target3 (askdir
(prompt "Select Directory for MyMatch.doc")
(help "Directory where MyMatch.doc will be copied to.")
(default target1)
))
(copyfiles (
(prompt "Select Docs you wish Installed")
(help "Documentation.")
(source "Docs")
(dest target3)
(choices "DISCLAIMER" "MyMatch.readme")
(CONFIRM)
))
))
(complete 100) (message #goodbye #my-address)
(exit (quiet))